Usenet 1993 July/InfoMagic USENET CD-ROM July 1993.ISO/sources/x/volume3/awm2/part07

Internet Message Format | 1989-02-20 | 54.7 KB

Path: uunet!lll-winken!ames!pasteur!ucbvax!decwrl!wyse!mikew
From: [e-mail] (Mike Wexler)
Newsgroups: comp.sources.x
Subject: v03i023:  Ardent Window Manager, Patchlevel 9, Part07/12
Message-ID: <[e-mail]>
Date: 20 Feb 89 22:24:40 GMT
Organization: Wyse Technology, San Jose
Lines: 1759
Approved: [e-mail]

Submitted-by: kmw@ardent (Ken Wallich)
Posting-number: Volume 3, Issue 23
Archive-name: awm2/part07

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#        "End of archive 7 (of 12)."
# Contents:  Cursors.c Icons.c Makefile.rtl RubberBand.c
#   menus/rtlmenu.c
# Wrapped by mikew@wyse on Fri Feb 17 10:50:27 1989
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'Cursors.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'Cursors.c'\"
else
echo shar: Extracting \"'Cursors.c'\" \(4232 characters\)
sed "s/^X//" >'Cursors.c' <<'END_OF_FILE'
X
X
X
X#ifndef lint
Xstatic char *rcsid_StoreCursors_c = "$Header: /usr/graph2/X11.3/contrib/windowmgrs/awm/RCS/Cursors.c,v 1.1 89/01/23 15:34:10 jkh Exp $";
X#endif    lint
X
X#include "X11/copyright.h"
X/*
X *
X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
X *
X * Copyright 1987 by Jordan Hubbard.
X *
X *
X *                         All Rights Reserved
X *
X * Permission to use, copy, modify, and distribute this software and its
X * documentation for any purpose and without fee is hereby granted,
X * provided that the above copyright notice appear in all copies and that
X * both that copyright notice and this permission notice appear in
X * supporting documentation, and that the name of Ardent Computer
X * Corporation or Jordan Hubbard not be used in advertising or publicity
X * pertaining to distribution of the software without specific, written
X * prior permission.
X *
X */
X
X/*
X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
X *
X *                         All Rights Reserved
X *
X * Permission to use, copy, modify, and distribute this software and its
X * documentation for any purpose and without fee is hereby granted,
X * provided that the above copyright notice appear in all copies and that
X * both that copyright notice and this permission notice appear in
X * supporting documentation, and that the name of Digital Equipment
X * Corporation not be used in advertising or publicity pertaining to
X * distribution of the software without specific, written prior permission.
X *
X *
X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
X * SOFTWARE.
X */
X
X
X
X/*
X * MODIFICATION HISTORY
X *
X * 000 -- M. Gancarz, DEC Ultrix Engineering Group
X * 001 -- Loretta Guarino Reid, DEC Ultrix Engineering Group
X *        Convert to X11
X * 1.2 -- Gumby cursor added (This was a major revision).
X */
X
X#ifndef lint
Xstatic char *sccsid = "@(#)StoreCursors.c    3.8    1/24/86";
X#endif
X
X#include "awm.h"
X#include "X11/cursorfont.h"
X
X/*
X * Store all the cursors into global variables.
X */
XStoreCursors()
X{
X    Entry("StoreCursors")
X
X    /*
X     * Main awm cursor and movement cursor.
X     */
X    ArrowCrossCursor = XCreateFontCursor(dpy, XC_fleur);
X    if (ArrowCrossCursor == FAILURE) {
X    Error("StoreCursors -> Unable to store ArrowCrossCursor.");
X    }
X
X    /*
X     * Text cursor used in icons.
X     */
X    TextCursor = XCreateFontCursor(dpy, XC_xterm);
X    if (TextCursor == FAILURE) {
X    Error("StoreCursors -> Unable to store TextCursor.");
X    }
X
X    /*
X     * Icon cursor used to iconify windows.
X     */
X    IconCursor = XCreateFontCursor(dpy, XC_icon);
X    if (IconCursor == FAILURE) {
X    Error("StoreCursors -> Unable to store IconCursor.");
X    }
X
X    /*
X     * Left button main cursor.
X     */
X    LeftButtonCursor = XCreateFontCursor(dpy, XC_leftbutton);
X    if (LeftButtonCursor == FAILURE) {
X    Error("StoreCursors -> Unable to store LeftButtonCursor.");
X    }
X
X    /*
X     * Middle button main cursor.
X     */
X    MiddleButtonCursor = XCreateFontCursor(dpy, XC_middlebutton);
X    if (MiddleButtonCursor == FAILURE) {
X    Error("StoreCursors -> Unable to store MiddleButtonCursor.");
X    }
X
X    /*
X     * Right button main cursor.
X     */
X    RightButtonCursor = XCreateFontCursor(dpy, XC_rightbutton);
X    if (RightButtonCursor == FAILURE) {
X    Error("StoreCursors -> Unable to store RightButtonCursor.");
X    }
X
X    /*
X     * Targer cursor used to identify a window for an action.
X     */
X    TargetCursor = XCreateFontCursor(dpy, XC_circle);
X    if (TargetCursor == FAILURE) {
X    Error("StoreCursors -> Unable to store TargetCursor.");
X    }
X    /*
X     * Gumby cursor used in icons if icon is not a typein icon
X     * (otherwise use textcursor
X     */
X    GumbyCursor = XCreateFontCursor(dpy, XC_gumby);
X    if (GumbyCursor == FAILURE) {
X    Error("StoreCursors -> Unable to store GumbyCursor.");
X    }
X    Leave(0)
X}
X
END_OF_FILE
if test 4232 -ne `wc -c <'Cursors.c'`; then
    echo shar: \"'Cursors.c'\" unpacked with wrong size!
fi
# end of 'Cursors.c'
fi
if test -f 'Icons.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'Icons.c'\"
else
echo shar: Extracting \"'Icons.c'\" \(14575 characters\)
sed "s/^X//" >'Icons.c' <<'END_OF_FILE'
X
X
X
X#ifndef lint
Xstatic char *rcsid_Icons_c = "$Header: /usr/graph2/X11.3/contrib/windowmgrs/awm/RCS/Icons.c,v 1.2 89/02/07 20:05:21 jkh Exp $";
X#endif  lint
X
X#include "X11/copyright.h"
X/*
X *
X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
X *
X * Copyright 1987 by Jordan Hubbard.
X *
X *
X *                         All Rights Reserved
X *
X * Permission to use, copy, modify, and distribute this software and its
X * documentation for any purpose and without fee is hereby granted,
X * provided that the above copyright notice appear in all copies and that
X * both that copyright notice and this permission notice appear in
X * supporting documentation, and that the name of Ardent Computer
X * Corporation or Jordan Hubbard not be used in advertising or publicity
X * pertaining to distribution of the software without specific, written
X * prior permission.
X *
X */
X
X/*
X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
X *
X *                         All Rights Reserved
X *
X * Permission to use, copy, modify, and distribute this software and its
X * documentation for any purpose and without fee is hereby granted,
X * provided that the above copyright notice appear in all copies and that
X * both that copyright notice and this permission notice appear in
X * supporting documentation, and that the name of Digital Equipment
X * Corporation not be used in advertising or publicity pertaining to
X * distribution of the software without specific, written prior permission.
X *
X *
X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
X * SOFTWARE.
X */
X
X
X
X/*
X * MODIFICATION HISTORY
X *
X * 000 -- L. Guarino Reid, DEC Ultrix Engineering Group
X * 001 -- Jordan Hubbard, Ardent Computer
X *  Many modifications for titled windows.
X * 1.2 -- Jordan Hubbard, Ardent Computer.
X * vPad and hPad usage corrected (Chris Thewalt fix).
X * Clipping now set on right GC.
X * 1.3 -- Changed the way icon button events are handled.
X * 1.4 -- Isaac J. Salzman, RAND Corp.
X * reworked the way icons are handled - if IconsLabels is set, icons
X * with pixmaps are labled at bottom & icons w/o pixmaps use a default
X * pixmap w/a label instead of just a solid bg tile (i.e. twm style),
X * otherwise old uwm style icons are used (typin and all).
X * 1.5 -- Modified Isaac's changes to allow wm_option.icon.labels to
X * work. This allows individual clients/classes to determine their
X * icon style.  -jkh
X */
X
X#include "awm.h"
X#include "X11/Xutil.h"
X
Xextern XContext AwmContext;
X     extern void Warning();
X
X/* the client should pass us a bitmap (single-plane pixmap with background=0
X * and foreground = 1).  It is our responsibility to convert it to a pixmap
X * of the appropriate depth for a window tile and also color it with the
X * appropriate background and foreground pixels.
X *
X * we'll use the (global) IconGC for the fore/background pixels.
X */
X
Xstatic Pixmap MakePixmapFromBitmap( bitmap, clipmask, width_return, height_return )
XPixmap bitmap, clipmask;
Xunsigned int *width_return, *height_return;
X{
X     Pixmap tile;
X     Window junkW;
X     int junk;
X     unsigned int width, height;
X     GC iGC;
X     XGCValues gcv;
X
X     Entry("MakePixmapFromBitmap")
X
X     if (!XGetGeometry( dpy, bitmap, &junkW, &junk, &junk,
X               &width, &height, &junk, &junk )) {
X      Warning( "client passed invalid pixmap for icon." );
X      Leave( NULL )
X     }
X     tile = XCreatePixmap( dpy, RootWindow(dpy, scr), width, height,
X              (unsigned) DefaultDepth(dpy, scr) );
X     gcv.foreground = ITextForeground;
X     gcv.background = ITextBackground;
X     iGC = XCreateGC(dpy, RootWindow(dpy, scr), (GCForeground | GCBackground),
X             &gcv);
X     if (clipmask)
X      XSetClipMask(dpy, iGC, clipmask);
X     XCopyPlane(dpy, bitmap, tile, iGC, 0, 0, width, height, 0, 0,
X        (unsigned long) 1 );
X     XFreeGC(dpy, iGC);
X     if (width_return)
X      *width_return = width;
X     if (height_return)
X      *height_return = height;
X     Leave(tile)
X}
X
Xchar *GetIconName(window)
XWindow window;
X{
X     unsigned char *name;
X     Status status;
X     unsigned long len, after;
X     Atom a_type;
X     int a_form;
X
X     Entry("GetIconName")
X
X     status = XGetWindowProperty(dpy, window, XA_WM_ICON_NAME, 0L, 256L,
X                 False, XA_STRING, &a_type, &a_form, &len, &after,
X                 &name);
X
X     if (status != Success) {
X      status = XGetWindowProperty(dpy, window, XA_WM_NAME, 0L, NAME_LEN,
X                      False, XA_STRING, &a_type, &a_form, &len,
X                      &after, &name);
X      if (status != Success)
X           Leave( DEF_NAME ) /* use default name */
X     }
X     if (a_form == 0)    /* we have no bananas */
X      Leave((char *)NULL)
X     if (a_form != 8) {
X      Warning("Window has icon_name in wrong format");
X      if (name)
X           free(name);
X      Leave((char *)NULL)
X     }
X     if (len > NAME_LEN) {
X      Warning("Window has icon_name greater than maximum length");
X      len = NAME_LEN;
X     }
X     if (!len)
X      Leave((char *)NULL)
X     name[len] = 0;
X     Leave((char *) name)
X}
X
XBoolean IsIcon(icon, win)
XWindow icon;
XWindow *win;
X{
X     AwmInfoPtr awi;
X
X     Entry("IsIcon")
X
X     if (win)
X      *win = 0;
X     awi = GetAwmInfo(icon);
X     if (!awi)
X      Leave(FALSE)
X     if (awi->icon == icon) {
X      if (win)
X           *win = awi->client;
X      Leave(TRUE)
X     }
X     else if (awi->client == icon || awi->frame == icon) {
X      if (win)
X           *win = awi->icon;
X      Leave(FALSE)
X     }
X     Leave(FALSE)
X}
X
XRemoveIcon(window)
XWindow window;
X{
X     AwmInfoPtr awi;
X
X     Entry("RemoveIcon")
X
X     if ((awi = GetAwmInfo(window)) != NULL) {
X      XDeleteContext(dpy, awi->icon, AwmContext);
X      if (awi->own) {
X           XDestroyWindow(dpy, awi->icon);
X           if ((awi->iconPixmap != IBackPixmap) &&
X           (awi->iconPixmap != IDefPixmap))
X           XFreePixmap(dpy, awi->iconPixmap);
X      }
X      awi->icon = (Drawable)NULL;
X      awi->state ^= ST_ICON;
X      awi->state |= ST_WINDOW;
X#ifdef WMSTATE
X      awi->wm_state.icon=0;
X      awi->wm_state.state=NormalState;
X      XChangeProperty(dpy,awi->client,wm_state_atom,wm_state_atom,32,
X              PropModeReplace,(char *) &awi->wm_state,2);
X#endif /* WMSTATE */
X     }
X     Leave_void
X}
X
XGetDefaultSize(window, icon_w, icon_h)
XWindow window;
Xint *icon_w, *icon_h;
X{
X     char *name;                /* Event window name. */
X
X     Entry("GetDefaultSize")
X
X     /*
X      * Determine the size of the icon window.
X      */
X     name = GetIconName(window);
X     *icon_h = IFontInfo->ascent + IFontInfo->descent;
X     if (name) {
X      *icon_w = XTextWidth(IFontInfo, name, strlen(name));
X      if (*icon_w == 0)
X           *icon_w = *icon_h;
X     }
X     else
X      *icon_w = *icon_h = 0; /* set to zilch if bogus name! */
X     Leave_void
X}
X
XWindow MakeIcon(window, x, y, mousePositioned)
XWindow window;                          /* associated window. */
Xint x, y;                               /* Event mouse position. */
XBoolean mousePositioned;
X{
X     int icon_x, icon_y;        /* Icon U. L. X and Y coordinates. */
X     unsigned int icon_w, icon_h;    /* Icon width and height. */
X     unsigned int icon_bdr;        /* Icon border width. */
X     long mask;                /* Icon event mask */
X     XSetWindowAttributes iconValues;    /* for icon window creation */
X     unsigned long iconValues_mask;    /* for above */
X     XWMHints *wmhints;            /* see if icon position provided */
X     XWMHints *XGetWMHints();
X     Pixmap clip = 0;
X     Window AddIcon();
X     AwmInfoPtr awi;
X     int junk;
X
X     Entry("MakeIcon")
X
X     awi = GetAwmInfo(window);
X
X     if (awi->attrs & AT_ICONLABEL) {    /* check for iconLables - twm style */
X      iconValues.background_pixmap = IDefPixmap;
X      mask = StructureNotifyMask;
X     }
X     else {                    /* uwm style */
X      iconValues.background_pixmap = IBackPixmap;
X      mask = (ExposureMask | StructureNotifyMask | KeyPressMask);
X     }
X
X     /*
X      * Process window manager hints.
X      */
X     if (wmhints = XGetWMHints(dpy, window)) {
X      if (wmhints->flags & IconWindowHint)
X           Leave(AddIcon(window, wmhints->icon_window, FALSE,
X                 (StructureNotifyMask), (Pixmap)NULL));
X
X       if (wmhints->flags & IconPixmapHint) {
X        if (wmhints->flags & IconMaskHint)
X             clip = wmhints->icon_mask;
X        iconValues.background_pixmap =
X             MakePixmapFromBitmap(wmhints->icon_pixmap, clip,
X                      &icon_w, &icon_h );
X        if (iconValues.background_pixmap)
X             mask = (StructureNotifyMask);
X         else {
X              iconValues.background_pixmap = IBackPixmap;
X              wmhints->flags &= ~IconPixmapHint;
X         }
X       }
X     }
X
X     /*
X      * we now have a pixmap of some sort - either a background
X      *  tile or an actual image - get the dimensions...
X      */
X
X     if (!XGetGeometry(dpy, iconValues.background_pixmap,
X               &junk, &junk, &junk,
X               &icon_w, &icon_h, &junk, &junk )) {
X      Warning( "can't get geom of pixmap in MakeIcon" );
X      Leave( NULL );
X     }
X
X     if (awi->attrs & AT_ICONLABEL) {
X      char *s;
X      Pixmap p;
X      unsigned int nw, nh;
X      int tw, th, hoff, voff;
X
X       if (s = GetIconName(window)) {
X        nw = icon_w;
X        nh = icon_h;
X
X        /* find out dimensions of text, add padding */
X        tw = XTextWidth(IFontInfo, s, strlen(s)) + HIconPad;
X        th = IFontInfo->ascent + IFontInfo->descent + VIconPad;
X
X
X        /* calculate the size including the icon label */
X        if (nw < tw)    /* width >= text width */
X             nw = tw;
X
X        /* always tack on extra for the label height */
X        nh += th;
X
X        /* now that we have dimensions, create the pixmap
X           we want to eventually use as the icon window
X           */
X
X        if (!(p = XCreatePixmap(dpy, RootWindow(dpy, scr), nw, nh,
X                    (unsigned) DefaultDepth(dpy, scr)))) {
X             Warning("can't create pixmap in MakeIcon.");
X             Leave( NULL )
X        }
X
X        /* calculate horizontal offset of pixmap (center it!) */
X        if (hoff = (nw - icon_w))
X             hoff = (hoff+1)/2;
X
X        /* if the label goes at the top, push the thing to the bottom
X         * otherwise leave it at the top
X             */
X
X        voff = ILabelTop ? (th - (VIconPad+1)/2) : (VIconPad+1)/2;
X
X        XCopyArea(dpy, iconValues.background_pixmap, p,
X              IconGC, 0, 0, icon_w, icon_h,
X              hoff, voff);
X
X        /* now that we have a centered pixmap draw
X         * some text on it....
X         */
X
X        if (hoff = (nw - tw))
X             hoff = (hoff+1)/2;
X        else
X             hoff = (HIconPad ? (HIconPad+1)/2 : 1);
X
X        /* see if string goes to top or bottom */
X        if (ILabelTop)
X             voff = th - (IFontInfo->descent-((VIconPad+1)/2));
X        else
X             voff = nh-(IFontInfo->descent+((VIconPad+1)/2));
X
X        XDrawImageString(dpy, p, IconGC, hoff, voff, s, strlen(s));
X
X        /*
X         * Now free up original pixmap and replace
X         * with this new one.
X         */
X
X        icon_h = nh;
X        icon_w = nw;
X
X        if ((iconValues.background_pixmap != IBackPixmap) &&
X            (iconValues.background_pixmap != IDefPixmap))
X             XFreePixmap(dpy, iconValues.background_pixmap);
X        iconValues.background_pixmap = p;
X       }
X     }
X     else {             /* do it the old way.... */
X      int h, w;
X
X      if (!wmhints || !(wmhints->flags & IconPixmapHint)) {
X           GetDefaultSize(window, &w, &h);
X
X           if ((w==0) || (h==0)) { /* no label, use IDefPixmap */
X            iconValues.background_pixmap = IDefPixmap;
X
X            /* get geom of ipixmap */
X            if (!XGetGeometry(dpy, iconValues.background_pixmap,
X                      &junk, &junk, &junk,
X                      &icon_w, &icon_h, &junk, &junk)) {
X             Warning("can't get geom of pixmap in MakeIcon");
X             Leave(NULL)
X            }
X           }
X           else { /* use small label icon + some padding */
X            icon_h = h+VIconPad;
X            icon_w = w+HIconPad;
X           }
X      }
X     }
X     /*
X      * Set the icon border attributes.
X      */
X     if (!wmhints || !(wmhints->flags & IconWindowHint)) {
X      icon_bdr = IBorderWidth;
X      iconValues.border_pixel = IBorder;
X     }
X     /*
X      * Determine icon position....
X      */
X     if (wmhints && (wmhints->flags & IconPositionHint)) {
X      icon_x = wmhints->icon_x;
X      icon_y = wmhints->icon_y;
X     } else {
X      if (mousePositioned) {
X           /*
X        * Determine the coordinates of the icon window;
X        * normalize so that we don't lose the icon off the
X        * edge of the screen.
X        */
X           icon_x = x - (icon_w >> 1) + 1;
X           if (icon_x < 0) icon_x = 0;
X           icon_y = y - (icon_h >> 1) + 1;
X           if (icon_y < 0) icon_y = 0;
X           if ((icon_x - 1 + icon_w + (icon_bdr << 1)) > ScreenWidth) {
X            icon_x = ScreenWidth - icon_w - (icon_bdr << 1) + 1;
X           }
X           if ((icon_y - 1 + icon_h + (icon_bdr << 1)) > ScreenHeight) {
X            icon_y = ScreenHeight - icon_h - (icon_bdr << 1) + 1;
X           }
X      }
X      else {
X           icon_x = x + (icon_w >> 1);
X           icon_y = y + (icon_y >> 1);
X      }
X
X     }
X
X     /*
X      * Create the icon window.
X      */
X     iconValues_mask = CWBorderPixel | CWBackPixmap;
X     /*
X      * Here we assume that if they want save unders, they'll also want
X      * backing store on the icons. Perhaps a dangerous assumption, but
X      * one we have to make at this point.
X      */
X     if (SaveUnder) {
X      iconValues.backing_store = WhenMapped;
X      iconValues_mask |= CWBackingStore;
X     }
X     Leave(AddIcon(window,
X           XCreateWindow(
X                 dpy, RootWindow(dpy, scr),
X                 icon_x, icon_y,
X                 icon_w, icon_h,
X                 icon_bdr, 0, CopyFromParent, CopyFromParent,
X                 iconValues_mask, &iconValues),
X           TRUE, mask, iconValues.background_pixmap))
X}
X
XWindow AddIcon(window, icon, own, mask, background)
XWindow window, icon;
XBoolean own;
Xlong mask;
XPixmap background;
X{
X     AwmInfoPtr awi;
X
X     Entry("AddIcon")
X
X     if (icon == NULL)
X      Leave(NULL)
X     /*
X      * Use the text cursor whenever the mouse is in the icon window, if
X      * it's a typein icon, otherwise use gumby....
X      */
X
X     if (background == IBackPixmap)
X     XDefineCursor(dpy, icon, TextCursor);
X     else
X     XDefineCursor(dpy, icon, GumbyCursor);
X
X     /*
X      * Select "key pressed", "window exposure" and "unmap window"
X      * events for the icon window.
X      */
X     XSelectInput(dpy, icon, mask | ButtonPressMask | ButtonReleaseMask);
X
X     awi = GetAwmInfo(window);
X     awi->icon = icon;
X     awi->own = own;
X     awi->iconPixmap = background;
X#ifdef WMSTATE
X     awi->wm_state.icon=icon;
X     XChangeProperty(dpy,awi->client,wm_state_atom,wm_state_atom,32,
X             PropModeReplace,(char *) &awi->wm_state,2);
X#endif /* WMSTATE */
X     XSaveContext(dpy, icon, AwmContext, (caddr_t) awi);
X     Leave(icon)
X}
END_OF_FILE
if test 14575 -ne `wc -c <'Icons.c'`; then
    echo shar: \"'Icons.c'\" unpacked with wrong size!
fi
# end of 'Icons.c'
fi
if test -f 'Makefile.rtl' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'Makefile.rtl'\"
else
echo shar: Extracting \"'Makefile.rtl'\" \(10660 characters\)
sed "s/^X//" >'Makefile.rtl' <<'END_OF_FILE'
X# makefile generated by mkold
X
XXDIR = /usr/src/X.V11R2
X
XCOM.00 = $(XDIR)/lib
XDIR.00 = $(COM.00)/oldX
XDIR.01 = $(COM.00)/X
X
XNEATENOBJS =  \
X    check_can_mod.o check_grow.o check_shrink.o \
X    commit_op.o goal.o gravity.o mem.o state.o \
X    tilwin_close.o tilwin_create.o tilwin_desk.o \
X    tilwin_dump.o tilwin_init.o tilwin_list.o tilwin_misc.o \
X    tilwin_open.o tilwin_resat.o tilwin_resize.o \
X    tilwin_set.o tilwin_tmp.o tilwin_undo.o trial_grow.o \
X    trial_place.o trial_satisfy.o trial_slide.o \
X    tilwin_slide.o trial_edge_sweep.o win.o tilwin_thread.o \
X    init_tws.o pieces_enum.o pieces_merge.o pieces_split.o \
X    pieces_update.o tile_create.o tile_delete.o \
X    tile_enlarge.o tile_find.o tile_nbrs.o tile_panic.o \
X    tile_shrink.o tileopts.o userglobals.o neaten.o
X
Xneaten.a: $(NEATENOBJS)
X    ar qcv neaten.a $(NEATENOBJS)
X    ranlib neaten.a
X
Xcheck_can_mod.o : check_can_mod.c tilwin.extern.h state.extern.h \
X        state.h tilwin.intern.h tilwin.h tilwinopts.h basetype.h \
X        std_defs.h tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c check_can_mod.c
X
Xcheck_grow.o : check_grow.c win.extern.h tile.extern.h tile.h \
X        basetype.h std_defs.h state.extern.h state.h \
X        tilwin.intern.h tilwin.h tilwinopts.h tilwin.extern.h \
X        tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c check_grow.c
X
Xcheck_shrink.o : check_shrink.c goal.extern.h tilwin.extern.h \
X        state.extern.h state.h tilwin.intern.h tilwin.h \
X        tilwinopts.h basetype.h std_defs.h tilwin.define.h \
X        tileopts.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c check_shrink.c
X
Xcommit_op.o : commit_op.c win.extern.h tile.extern.h tile.h basetype.h \
X        std_defs.h state.extern.h state.h tilwin.intern.h \
X        tilwin.h tilwinopts.h tilwin.define.h tileopts.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c commit_op.c
X
Xgoal.o : goal.c tilwin.define.h tileopts.h tilwin.intern.h tilwin.h \
X        tilwinopts.h basetype.h std_defs.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c goal.c
X
Xgravity.o : gravity.c tilwin.extern.h state.extern.h state.h \
X        tilwin.intern.h tilwin.h tilwinopts.h basetype.h \
X        std_defs.h tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c gravity.c
X
Xmem.o : mem.c tile.h basetype.h std_defs.h tilwin.intern.h tilwin.h \
X        tilwinopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c mem.c
X
Xstate.o : state.c tilwin.intern.h tilwin.h tilwinopts.h basetype.h \
X        std_defs.h state.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c state.c
X
Xtilwin_close.o : tilwin_close.c state.extern.h state.h tilwin.intern.h \
X        tilwin.h tilwinopts.h basetype.h std_defs.h win.extern.h \
X        tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_close.c
X
Xtilwin_create.o : tilwin_create.c mem.extern.h state.extern.h state.h \
X        tilwin.intern.h tilwin.h tilwinopts.h basetype.h \
X        std_defs.h tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_create.c
X
Xtilwin_desk.o : tilwin_desk.c gravity.extern.h basetype.h std_defs.h \
X        tile.extern.h tile.h tilwin.extern.h state.extern.h \
X        state.h tilwin.intern.h tilwin.h tilwinopts.h \
X        copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_desk.c
X
Xtilwin_dump.o : tilwin_dump.c win.extern.h tilwin.extern.h \
X        state.extern.h state.h tilwin.intern.h tilwin.h \
X        tilwinopts.h basetype.h std_defs.h tilwin.define.h \
X        tileopts.h tile.extern.h tile.h tile.define.h \
X        tile.intern.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_dump.c
X
Xtilwin_init.o : tilwin_init.c tile.intern.h tile.h basetype.h \
X        std_defs.h tilwin.intern.h tilwin.h tilwinopts.h \
X        copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_init.c
X
Xtilwin_list.o : tilwin_list.c state.extern.h state.h tilwin.intern.h \
X        tilwin.h tilwinopts.h basetype.h std_defs.h \
X        tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_list.c
X
Xtilwin_misc.o : tilwin_misc.c win.extern.h tile.extern.h tile.h \
X        basetype.h std_defs.h tile.define.h tile.intern.h \
X        state.extern.h state.h tilwin.intern.h tilwin.h \
X        tilwinopts.h tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_misc.c
X
Xtilwin_open.o : tilwin_open.c win.extern.h gravity.extern.h basetype.h \
X        std_defs.h commit.extern.h trial.extern.h trial.h \
X        state.extern.h state.h tilwin.intern.h tilwin.h \
X        tilwinopts.h tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_open.c
X
Xtilwin_resat.o : tilwin_resat.c win.extern.h commit.extern.h \
X        trial.extern.h trial.h state.extern.h state.h \
X        tilwin.intern.h tilwin.h tilwinopts.h basetype.h \
X        std_defs.h tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_resat.c
X
Xtilwin_resize.o : tilwin_resize.c gravity.extern.h basetype.h \
X        std_defs.h win.extern.h commit.extern.h trial.extern.h \
X        trial.h state.extern.h state.h tilwin.intern.h tilwin.h \
X        tilwinopts.h tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_resize.c
X
Xtilwin_set.o : tilwin_set.c trial.extern.h trial.h state.extern.h \
X        state.h tilwin.intern.h tilwin.h tilwinopts.h basetype.h \
X        std_defs.h tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_set.c
X
Xtilwin_tmp.o : tilwin_tmp.c trial.h state.extern.h state.h \
X        tilwin.intern.h tilwin.h tilwinopts.h basetype.h \
X        std_defs.h trial.extern.h tilwin.define.h tileopts.h \
X        copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_tmp.c
X
Xtilwin_undo.o : tilwin_undo.c win.extern.h state.extern.h state.h \
X        tilwin.intern.h tilwin.h tilwinopts.h basetype.h \
X        std_defs.h tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_undo.c
X
Xtrial_grow.o : trial_grow.c check.extern.h gravity.extern.h basetype.h \
X        std_defs.h tilwin.extern.h state.extern.h state.h \
X        tilwin.intern.h tilwin.h tilwinopts.h tilwin.define.h \
X        tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c trial_grow.c
X
Xtrial_place.o : trial_place.c check.extern.h gravity.extern.h \
X        basetype.h std_defs.h tilwin.extern.h state.extern.h \
X        state.h tilwin.intern.h tilwin.h tilwinopts.h \
X        tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c trial_place.c
X
Xtrial_satisfy.o : trial_satisfy.c check.extern.h gravity.extern.h \
X        basetype.h std_defs.h tilwin.extern.h state.extern.h \
X        state.h tilwin.intern.h tilwin.h tilwinopts.h \
X        tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c trial_satisfy.c
X
Xtrial_slide.o : trial_slide.c trial.extern.h trial.h tilwin.extern.h \
X        state.extern.h state.h tilwin.intern.h tilwin.h \
X        tilwinopts.h basetype.h std_defs.h tilwin.define.h \
X        tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c trial_slide.c
X
Xtilwin_slide.o : tilwin_slide.c trial.extern.h trial.h tilwin.extern.h \
X        state.extern.h state.h tilwin.intern.h tilwin.h \
X        tilwinopts.h basetype.h std_defs.h tilwin.define.h \
X        tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_slide.c
X
Xtrial_edge_sweep.o : trial_edge_sweep.c tilwin.extern.h state.extern.h \
X        state.h tilwin.intern.h tilwin.h tilwinopts.h basetype.h \
X        std_defs.h tile.extern.h tile.h tile.define.h \
X        tile.intern.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c trial_edge_sweep.c
X
Xwin.o : win.c gravity.extern.h basetype.h std_defs.h state.extern.h \
X        state.h tilwin.intern.h tilwin.h tilwinopts.h \
X        tile.define.h tile.intern.h tile.h tile.extern.h \
X        tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c win.c
X
Xtilwin_thread.o : tilwin_thread.c state.extern.h state.h \
X        tilwin.intern.h tilwin.h tilwinopts.h basetype.h \
X        std_defs.h tilwin.define.h tileopts.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tilwin_thread.c
X
Xinit_tws.o : init_tws.c tile-list.h tile.define.h tile.intern.h tile.h \
X        basetype.h std_defs.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c init_tws.c
X
Xpieces_enum.o : pieces_enum.c tile.extern.h tile.h basetype.h \
X        std_defs.h tile-list.h tile.define.h tile.intern.h \
X        copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c pieces_enum.c
X
Xpieces_merge.o : pieces_merge.c tile-list.h tile.define.h tile.intern.h \
X        tile.h basetype.h std_defs.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c pieces_merge.c
X
Xpieces_split.o : pieces_split.c tile.extern.h tile.h basetype.h \
X        std_defs.h tile-list.h tile.define.h tile.intern.h \
X        copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c pieces_split.c
X
Xpieces_update.o : pieces_update.c tile-list.h tile.define.h \
X        tile.intern.h tile.h basetype.h std_defs.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c pieces_update.c
X
Xtile_create.o : tile_create.c tile.extern.h tile.h basetype.h \
X        std_defs.h tile.define.h tile.intern.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tile_create.c
X
Xtile_delete.o : tile_delete.c tile.extern.h tile.h basetype.h \
X        std_defs.h tile-list.h tile.define.h tile.intern.h \
X        copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tile_delete.c
X
Xtile_enlarge.o : tile_enlarge.c tile.extern.h tile.h basetype.h \
X        std_defs.h tile.define.h tile.intern.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tile_enlarge.c
X
Xtile_find.o : tile_find.c tilwin.extern.h state.extern.h state.h \
X        tilwin.intern.h tilwin.h tilwinopts.h basetype.h \
X        std_defs.h tile.define.h tile.intern.h tile.h \
X        copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tile_find.c
X
Xtile_nbrs.o : tile_nbrs.c tile-list.h tile.extern.h tile.h basetype.h \
X        std_defs.h tile.define.h tile.intern.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tile_nbrs.c
X
Xtile_panic.o : tile_panic.c copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tile_panic.c
X
Xtile_shrink.o : tile_shrink.c tile.define.h tile.intern.h tile.h \
X        basetype.h std_defs.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tile_shrink.c
X
Xtileopts.o : tileopts.c tileopts.h basetype.h std_defs.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c tileopts.c
X
Xuserglobals.o : userglobals.c explicitopts.h uservals.h useropts.h \
X        basetype.h std_defs.h copyright.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c userglobals.c
X
Xneaten.o : neaten.c neaten.define.h tilwin.define.h tileopts.h \
X        tilwin.intern.h tilwin.h tilwinopts.h basetype.h \
X        std_defs.h userwin.define.h tilwin.extern.h \
X        state.extern.h state.h userglobals.define.h userwin.h \
X        explicitwinopts.h userwinopts.h
X     $(CC) $(CFLAGS) -g -DNEATEN -DWM_DEBUG -c neaten.c
END_OF_FILE
if test 10660 -ne `wc -c <'Makefile.rtl'`; then
    echo shar: \"'Makefile.rtl'\" unpacked with wrong size!
fi
# end of 'Makefile.rtl'
fi
if test -f 'RubberBand.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'RubberBand.c'\"
else
echo shar: Extracting \"'RubberBand.c'\" \(12196 characters\)
sed "s/^X//" >'RubberBand.c' <<'END_OF_FILE'
X
X
X
X#ifndef lint
Xstatic char *rcsid_RubberBand_c = "$Header: /usr/graph2/X11.3/contrib/windowmgrs/awm/RCS/RubberBand.c,v 1.2 89/02/07 21:23:46 jkh Exp $";
X#endif  lint
X
X#include "X11/copyright.h"
X/*
X *
X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
X *
X * Copyright 1987 by Jordan Hubbard.
X *
X *
X *                         All Rights Reserved
X *
X * Permission to use, copy, modify, and distribute this software and its
X * documentation for any purpose and without fee is hereby granted,
X * provided that the above copyright notice appear in all copies and that
X * both that copyright notice and this permission notice appear in
X * supporting documentation, and that the name of Ardent Computer
X * Corporation or Jordan Hubbard not be used in advertising or publicity
X * pertaining to distribution of the software without specific, written
X * prior permission.
X *
X */
X
X/*
X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
X *
X *                         All Rights Reserved
X *
X * Permission to use, copy, modify, and distribute this software and its
X * documentation for any purpose and without fee is hereby granted,
X * provided that the above copyright notice appear in all copies and that
X * both that copyright notice and this permission notice appear in
X * supporting documentation, and that the name of Digital Equipment
X * Corporation not be used in advertising or publicity pertaining to
X * distribution of the software without specific, written prior permission.
X *
X *
X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
X * SOFTWARE.
X */
X
X/*
X * MODIFICATION HISTORY
X *
X * 000 -- Loretta Guarino Reid, DEC Ultrix Engineering Group
X * 001 -- Ralph R. Swick, DEC/MIT Project Athena
X *      tailor to uwm; use global resources created by uwm
X */
X
X#include "awm.h"
X#include "X11/Xutil.h"
X#include "X11/cursorfont.h"
X
X#define max(a,b) ( (a) > (b) ? (a) : (b) )
X#define min(a,b) ( (a) > (b) ? (b) : (a) )
X#define abs(a) ( (a) > 0 ? (a) : -(a))
X#define makemult(a, b) ((b==1) ? (a) : (((int)((a) / (b))) * (b)) )
X
X#define DCOUNT 2
X#define PCOUNT 1 + (4 * 2 * DCOUNT)
X
X#define BW    PBorderWidth        /* pop-up window border width */
X#define IBW    PPadding        /* internal border width for pop-up */
X
XAskUser(dpy, scr, window, x, y, width, height, hints, transient)
XDisplay *dpy;
Xint scr;
XWindow window;
Xint *x, *y;
Xunsigned int *width, *height;
XXSizeHints *hints;
XWindow transient;
X{
X     Cursor ur, ul, ll, lr;          /* cursors for rubber banding    */
X     int change_cursor = FALSE;
X     int current_cursor;
X     char *text;            /* text for prompt string       */
X     int nz;                         /* count where zeros are        */
X     unsigned int popw, poph;        /* width and height of prompt window*/
X#define invertGC DrawGC
X     int x1, y1;                     /* location of mouse            */
X     int x2, y2;                     /* other corner of box          */
X     int rootx, rooty;
X     unsigned int mask;         /* for XQueryPointer          */
X     Window root, subw;        /* for XQueryPointer */
X     int xa = -1, ya = -1, xb = -1, yb = -1;
X     int xinc, yinc;
X     unsigned int minwidth, minheight;
X     unsigned int maxwidth, maxheight;
X     unsigned int defwidth, defheight;
X     int chosen = -1;
X     int stop = FALSE;
X     int changed = TRUE;
X     int doit = FALSE;
X     int dx, dy;
X     int delta;
X     int ijunk;
X     XPoint box[PCOUNT];
X     int hsize, vsize;
X     int zero = '0';                 /* zero offset for char conversion  */
X     XEvent e;                 /* someplace to put the event   */
X     unsigned int events;               /* what events we want.             */
X     Window pop, wjunk;                     /* pop up prompt window         */
X     int i;
X     char *name;
X     int width_offset, height_offset; /* to subtract if resize increments */
X
X     Entry("AskUser")
X
X     if (transient) {
X      XGetGeometry( dpy, window, &wjunk, x, y, width, height,
X               &ijunk, &ijunk);
X      Leave_void
X     }
X     if ((hints->flags & USPosition) && (hints->flags & USSize)) {
X      *x = hints->x;
X      *y = hints->y;
X      *width = hints->width;
X      *height = hints->height;
X      Leave_void
X     }
X     if (!XFetchName(dpy, window, &name))
X      name = "Unnamed Window";
X
X     ur = XCreateFontCursor(dpy, XC_ur_angle);
X     ul = XCreateFontCursor(dpy, XC_ul_angle);
X     ll = XCreateFontCursor(dpy, XC_ll_angle);
X     lr = XCreateFontCursor(dpy, XC_lr_angle);
X     current_cursor = ul;
X
X     events = ButtonPressMask | ButtonReleaseMask;
X
X     /*
X      * go get the mouse as soon as you can
X      */
X
X     while (1) {
X      if (XGrabPointer (dpy, RootWindow(dpy, scr), FALSE, events,
X                   GrabModeAsync, GrabModeAsync, None, ul,
X                   CurrentTime) == GrabSuccess)
X           break;
X      sleep (1);
X     }
X     nz = strlen(name);        /* compute number of characters */
X     text = (char *)malloc( nz + 11 );
X     (void) strcpy(text, name);
X     (void) strcat(text, ": 000x000");
X     nz += 9;
X     popw = XTextWidth (PFontInfo, text, nz) + 2 * IBW;
X     poph = PFontInfo->ascent+PFontInfo->descent + 2 * IBW;
X
X     pop = XCreateSimpleWindow(dpy, RootWindow(dpy, scr),
X                   0, 0, popw, poph, BW, PBorder, PBackground);
X     XMapWindow (dpy, pop);
X
X     if (hints->flags & PMinSize) {
X      minwidth = hints->min_width;
X      minheight = hints->min_height;
X     } else {
X      minwidth = 0;
X      minheight = 0;
X     }
X     if (hints->flags & PMaxSize) {
X      maxwidth = max(hints->max_width, minwidth);
X      maxheight = max(hints->max_height, minheight);
X     } else {
X      maxwidth = DisplayWidth(dpy, scr);
X      maxheight = DisplayHeight(dpy, scr);
X     }
X     if (hints->flags & PResizeInc) {
X      xinc = hints->width_inc;
X      yinc = hints->height_inc;
X     } else {
X      xinc = 1;
X      yinc = 1;
X     }
X     if (hints->flags & PSize || hints->flags & USSize) {
X      defwidth = hints->width;
X      defheight = hints->height;
X     } else if (hints->flags&PMinSize) {
X      defwidth = hints->min_width;
X      defheight = hints->min_height;
X     } else if (hints->flags&PMaxSize) {
X      defwidth = hints->max_width;
X      defheight = hints->max_height;
X     } else {
X      long dummy;
X      XGetGeometry(dpy, window, &dummy, &dummy, &dummy,
X               &defwidth, &defheight, &dummy, &dummy);
X     }
X
X     /* until there are better WM_HINTS, we'll assume that the client's
X      * minimum width and height are the appropriate offsets to subtract
X      * when resizing with an explicit resize increment.
X      */
X     if (hints->flags & PMinSize && hints->flags & PResizeInc) {
X      width_offset = hints->min_width;
X      height_offset = hints->min_height;
X     } else
X      width_offset = height_offset = 0;
X
X
X     XQueryPointer (dpy, RootWindow(dpy, scr), &root, &subw,
X            &rootx, &rooty, &x1, &y1, &mask);
X     hsize = minwidth;
X     vsize = minheight;
X     x2 = x1+hsize;
X     y2 = y1+vsize;
X
X     while (stop == FALSE) {
X      if ( (xb != max (x1, x2)) || (yb != max (y1, y2))
X          ||(xa != min (x1, x2)) || (ya != min (y1, y2)) ) {
X           xa = min (x1, x2);
X           ya = min (y1, y2);
X           xb = max (x1, x2);
X           yb = max (y1, y2);
X           for ( i = 0; i < PCOUNT; i += 4) {
X                    box[i].x = xa; box[i].y = ya;
X                    if (i+1 == PCOUNT) break;
X                    box[i+1].x = xb; box[i+1].y = ya;
X                    box[i+2].x = xb; box[i+2].y = yb;
X                    box[i+3].x = xa; box[i+3].y = yb;
X           }
X           doit = TRUE;
X      }
X      if (changed) {
X           int Hsize = (hsize - width_offset) / xinc;
X           int Vsize = (vsize - height_offset) / yinc;
X           int pos = 3;
X
X           changed = FALSE;
X           text[nz - 7] = (Hsize>99) ? (Hsize / 100 + zero)    : ' ';
X           text[nz - 6] = (Hsize>9)  ? ((Hsize / 10) % 10 + zero)  : ' ';
X           text[nz - 5] = Hsize % 10 + zero;
X           if (Vsize>99) text[nz - pos--] = Vsize / 100 + zero;
X           if (Vsize>9)  text[nz - pos--] = (Vsize / 10) % 10 + zero;
X           text[nz - pos--]     = Vsize % 10 + zero;
X           while (pos>0) text[nz - pos--] = ' ';
X           XDrawImageString(dpy, pop, PopGC, IBW, IBW+PFontInfo->ascent,
X                text, nz);
X      }
X      if (doit) {
X           XDrawLines(dpy, RootWindow(dpy, scr), invertGC, box, PCOUNT,
X              CoordModeOrigin);
X      }
X      if (XPending(dpy) &&
X          XCheckMaskEvent(dpy, ButtonPressMask|ButtonReleaseMask, &e)) {
X           if ((chosen < 0) && (e.type == ButtonPress)) {
X            x1 = x2 = ((XButtonEvent *)&e)->x;
X            y1 = y2 = ((XButtonEvent *)&e)->y;
X            chosen = ((XButtonEvent *)&e)->button;
X            if (chosen == Button2)
X             change_cursor = TRUE;
X           }
X           else if ((e.type == ButtonRelease) &&
X                        ((((XButtonEvent *)&e)->button) == chosen)) {
X            x2 = ((XButtonEvent *)&e)->x;
X            y2 = ((XButtonEvent *)&e)->y;
X            stop = TRUE;
X           }
X           else
X            XQueryPointer (dpy, RootWindow(dpy, scr), &root,
X                   &subw, &rootx, &rooty, &x2, &y2, &mask);
X      }
X      else        XQueryPointer (dpy, RootWindow(dpy, scr), &root,
X                     &subw, &rootx, &rooty, &x2, &y2, &mask);
X      if (change_cursor) {
X           if ((x2 >= x1) && (y2 >= y1) &&
X           current_cursor != lr) {
X                    XChangeActivePointerGrab (dpy, events, lr, CurrentTime );
X                    current_cursor = lr;
X               }
X           else if ((x2 >= x1) && (y2 < y1) &&
X            current_cursor != ur) {
X                    XChangeActivePointerGrab (dpy, events, ur, CurrentTime );
X                    current_cursor = ur;
X           }
X           else if ((x2 < x1) && (y2 >= y1) &&
X            current_cursor != ll) {
X                    XChangeActivePointerGrab (dpy, events, ll, CurrentTime );
X                    current_cursor = ll;
X           }
X           else if ((x2 < x1) && (y2 < y1) &&
X            (current_cursor != ul)) {
X                    XChangeActivePointerGrab (dpy, events, ul, CurrentTime );
X                    current_cursor = ul;
X           }
X      }
X      if (chosen != Button2) {
X           x1 = x2;
X           y1 = y2;
X           if (chosen >= 0) {
X            x2 = defwidth;
X            if (chosen == Button1)
X             y2 = defheight;
X            else
X             y2 = (DisplayHeight(dpy, scr) - y1);
X            x2 = x1 + x2;
X            y2 = y1 + y2;
X           }
X      }
X
X      dx = max(min(abs (x2 - x1), maxwidth), minwidth);
X      dx = makemult(dx-minwidth, xinc)+minwidth;
X      dy = max(min(abs(y2 - y1), maxheight), minheight);
X      dy = makemult(dy-minheight, yinc)+minheight;
X
X      if (hints->flags & PAspect) {
X           if ((dx * hints->max_aspect.y > dy * hints->max_aspect.x)) {
X            delta = makemult((dx * hints->max_aspect.y /
X                      hints->max_aspect.x) - dy, yinc);
X            if ((dy + delta) <= maxheight)
X             dy += delta;
X            else {
X             delta = makemult(dx - hints->max_aspect.x
X                      * dy/hints->max_aspect.y, xinc);
X             if ((dx - delta) >= minwidth)
X                  dx -= delta;
X            }
X           }
X           if (dx * hints->min_aspect.y < dy * hints->min_aspect.x) {
X            delta = makemult((hints->min_aspect.x *
X                      dy/hints->min_aspect.y) - dx, xinc);
X            if (dx + delta <= maxwidth)
X             dx += delta;
X            else {
X             delta = makemult(dy - (dx * hints->min_aspect.y /
X                        hints->min_aspect.x), yinc);
X             if ((dy - delta) >= minheight)
X                  dy -= delta;
X            }
X           }
X
X      }
X
X      if (dx != hsize) {
X           hsize = dx;
X           changed = TRUE;
X      }
X      if (dy != vsize) {
X           vsize = dy;
X           changed = TRUE;
X      }
X      if (x2 < x1)
X           x2 = x1 - dx;
X      else
X           x2 = x1 + dx;
X
X      if (y2 < y1)
X           y2 = y1 - dy;
X      else
X           y2 = y1 + dy;
X     }
X     XUngrabPointer(dpy, CurrentTime);
X
X     XDestroyWindow (dpy, pop);
X     XFreeCursor (dpy, ur);
X     XFreeCursor (dpy, ul);
X     XFreeCursor (dpy, lr);
X     XFreeCursor (dpy, ll);
X     free(name);
X     free(text);
X     *x = min(x1, x2);
X     *y = min(y1, y2);
X     *width = hsize;
X     *height = vsize;
X     XSync(dpy, FALSE);
X     Leave_void
X}
END_OF_FILE
if test 12196 -ne `wc -c <'RubberBand.c'`; then
    echo shar: \"'RubberBand.c'\" unpacked with wrong size!
fi
# end of 'RubberBand.c'
fi
if test -f 'menus/rtlmenu.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'menus/rtlmenu.c'\"
else
echo shar: Extracting \"'menus/rtlmenu.c'\" \(9335 characters\)
sed "s/^X//" >'menus/rtlmenu.c' <<'END_OF_FILE'
X
X#ifndef lint
X     static char sccs_id[] = "@(#)rtlmenu.c    2.1 12/16/87  Siemens Corporate Research and Support, Inc.";
X#endif
X
X
X/*
X  RTL Menu Package Version 1.0
X  by Joe Camaratta and Mike Berman, Siemens RTL, Princeton NJ, 1987
X
X  rtlmenu.c: interface level for menu package
X  */
X
X#include "X11/copyright.h"
X/*
X *
X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
X *
X * Copyright 1987 by Jordan Hubbard.
X *
X *
X *                         All Rights Reserved
X *
X * Permission to use, copy, modify, and distribute this software and its
X * documentation for any purpose and without fee is hereby granted,
X * provided that the above copyright notice appear in all copies and that
X * both that copyright notice and this permission notice appear in
X * supporting documentation, and that the name of Ardent Computer
X * Corporation or Jordan Hubbard not be used in advertising or publicity
X * pertaining to distribution of the software without specific, written
X * prior permission.
X *
X */
X
X/*
X
X  Copyright 1987 by
X  Siemens Corporate Research and Support, Inc., Princeton, New Jersey
X
X  Permission to use, copy, modify, and distribute this software
X  and its documentation for any purpose and without fee is
X  hereby granted, provided that the above copyright notice
X  appear in all copies and that both that copyright notice and
X  this permission notice appear in supporting documentation, and
X  that the name of Siemens not be used in advertising or
X  publicity pertaining to distribution of the software without
X  specific, written prior permission.  Siemens makes no
X  representations about the suitability of this software for any
X  purpose.  It is provided "as is" without express or implied
X  warranty.
X
X  */
X
X#include <stdio.h>
X#include "X11/Xlib.h"
X
X#include "menu.h"
X#include "menu.def.h"
X#include "menu.ext.h"
X#include "rtlmenu.h"
X#include "dbug.h"
X
Xextern Display *dpy;
Xextern int scr;
X
Xstatic RTLPoint menu_pos;
Xstatic int initialized = 0;
X
Xvoid RTLMenu_Initialize (options_mask)
XMenuOptionsMask options_mask;
X{
X     Entry("RTLMenu_Initialize")
X
X     if (initialized)
X      return;
X     initialized = 1;
X     InitMenu ("awm", options_mask);
X     Leave_void
X}
X
X/* ------------------------------------------------------------ */
XRTLMenu RTLMenu_Create()
X{
X     Entry("RTLMenu_Create")
X     /* Create a menu with no name, not in inverse video. */
X
X     Leave((RTLMenu)NewMenu())
X}
X
X/* ------------------------------------------------------------ */
Xvoid RTLMenu_Destroy( menu )
XRTLMenu menu;
X{
X     Entry("RTLMenu_Destroy")
X     DisposeMenu ((Menu*) menu);
X     Leave_void
X}
X
X/* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ */
X
Xpointer RTLMenu_Data( menu, item )
X/*ARGSUSED*/
XRTLMenu menu;
XRTLMenuItem item;
X{
X     Entry("RTLMenu_Data")
X     Leave(ItemData((MenuItem*)item))
X}
X
X/* ------------------------------------------------------------ */
X
XRTLMenu RTLMenu_Get_Submenu( menu, str )
XRTLMenu menu;
Xchar *str;
X{
X     MenuItem *item = MenuItemByName ((Menu*) menu, str);
X
X     Entry("RTLMenu_Get_Submenu")
X
X     if (!ItemIsNull(item))
X      Leave((RTLMenu)ItemSubmenu(item))
X     Leave(0)
X}
X
X/* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ */
X
X/*ARGSUSED*/
Xstatic void RTLMenu_Client_Send( menu, item )
XRTLMenu menu;
XRTLMenuItem item;
X{
X     Entry("RTLMenu_Client_Send")
X
X     printf ("RTLMenu_Client_Send not yet implemented for X, string = \"%s\"\n",
X         (char*) item);
X     Leave_void
X}
X
X/* ------------------------------------------------------------ */
X
XRTLMenuItem RTLMenu_Append_String( menu, str, strval )
XRTLMenu menu;
Xchar *str;
Xchar *strval;
X{
X     MenuItem *item = AddMenuItem((Menu*)menu, str, (char *)NULL);
X
X     Entry("RTLMenu_Append_String")
X
X     ItemCallback(item) = (Callback)RTLMenu_Client_Send;
X     ItemData(item) = (pointer) strval;
X     Leave((RTLMenuItem)item)
X}
X
X/* ------------------------------------------------------------ */
X
XRTLMenuItem RTLMenu_Append_Callback( menu, backproc )
XRTLMenu menu;
XVoidFunc backproc;
X{
X     MenuItem *item = AddMenuItem((Menu*)menu, "", (char *)NULL);
X
X     Entry("RTLMenu_Append_Callback")
X
X     ItemGenerator(item) = (Callback)backproc;
X
X     Leave((RTLMenuItem)item)
X}
X
X/* ------------------------------------------------------------ */
X
XRTLMenuItem RTLMenu_Append_Call( menu, str, pix, proc, ptrval )
XRTLMenu menu;
Xchar *str;
Xchar *pix;
XVoidFunc proc;
Xpointer ptrval;
X{
X     MenuItem *item = AddMenuItem((Menu*)menu, str, pix);
X
X     Entry("RTLMenu_Append_Call")
X
X     ItemCallback(item) = proc;
X     ItemData(item) = ptrval;
X
X     Leave((RTLMenuItem)item)
X}
X
X/* ------------------------------------------------------------ */
X
XRTLMenuItem RTLMenu_Append_Checkback( menu, str, pix, checkproc, proc, ptrval )
XRTLMenu menu;
Xchar *str;   /* Menu string */
Xchar *pix;
XBoolean (*checkproc) ();  /* Boolean function called when menu entry
X              is about to be displayed.  If true, then
X              the item appears checked; if false, then
X              it does not */
XVoidFunc proc;  /* function to be called when the item
X           is selected */
Xpointer ptrval; /* data associated with this item */
X{
X     MenuItem *item = AddMenuItem((Menu*)menu, str, pix);
X
X     Entry("RTLMenu_Append_Checkback")
X
X     ItemCallback(item) = proc;
X     ItemData(item) = ptrval;
X     ItemCheckproc(item) =  checkproc;
X
X     Leave((RTLMenuItem)item)
X}
X/* ------------------------------------------------------------ */
X
XRTLMenuItem RTLMenu_Append_Submenu( menu, str, pix, submenu )
XRTLMenu menu;
Xchar *str;
Xchar *pix;
XRTLMenu submenu;
X{
X     MenuItem *item = AddMenuItem((Menu*)menu, str, pix);
X
X     Entry("RTLMenu_Append_Submenu")
X
X     ItemSubmenu(item) = (Menu*)submenu;
X
X     Leave((RTLMenuItem)item)
X}
X
X/* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ */
X
Xvoid RTLMenu_Replace_Data_Keyed_String( menu, data, str )
XRTLMenu menu;
Xpointer data;
Xchar *str;
X{
X     MenuItem *item = MenuItemByName((Menu*) menu, str);
X
X     Entry("RTLMenu_Replace_Keyed_String")
X
X     if (!ItemIsNull(item))
X      ItemData(item) = data;
X     Leave_void
X}
X
X/* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ */
X
Xvoid RTLMenu_Activate_Entry( menu, item )
XRTLMenu menu;
XRTLMenuItem item;
X{
X     Entry("RTLMenu_Activate_Entry")
X
X     (void)SetItemDisable((Menu*)menu, (MenuItem*)item, FALSE);
X     Leave_void
X}
X
X/* ------------------------------------------------------------ */
X
Xvoid RTLMenu_Inactivate_Entry( menu, item )
XRTLMenu menu;
XRTLMenuItem item;
X{
X     Entry("RTLMenu_Inactivate_Entry")
X
X     (void)SetItemDisable((Menu*)menu, (MenuItem*)item, TRUE);
X     Leave_void
X}
X
Xvoid RTLMenu_Label_Entry( menu, item )
XRTLMenu menu;
XRTLMenuItem item;
X{
X     Entry("RTLMenu_Label_Entry")
X
X     (void)SetItemDeaf((Menu*)menu, (MenuItem*)item, TRUE);
X     Leave_void
X}
X
X/* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ */
X
XBoolean RTLMenu_Has_Data( menu, val )
XRTLMenu menu;
Xpointer val;
X{
X     MenuItem *item = MenuItemByData((Menu*)menu, val);
X     Entry("RTLMenu_Has_Data")
X
X     Leave(!ItemIsNull(item))
X}
X
X/* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ */
X
Xvoid RTLMenu_Delete_Entries( menu )
XRTLMenu menu;
X{
X     Entry("RTLMenu_Delete_Entries")
X
X     while (DisposeItem((Menu*)menu, MenuItems((Menu*)menu)));
X     Leave_void
X}
X
X/* ------------------------------------------------------------ */
X
Xvoid RTLMenu_Delete_String( menu, str )
XRTLMenu menu;
Xchar *str;
X{
X     MenuItem *item = MenuItemByName((Menu*) menu, str);
X
X     Entry("RTLMenu_Delete_String");
X
X     if (!ItemIsNull(item))
X      (void) DisposeItem ((Menu*)menu, item);
X     Leave_void
X}
X
X/* ------------------------------------------------------------ */
X
Xvoid RTLMenu_Delete_Data( menu, val )
XRTLMenu menu;
Xpointer val;
X{
X     MenuItem *item = MenuItemByData((Menu*)menu, val);
X
X     Entry("RTLMenu_Delete_Data");
X
X     if (!ItemIsNull(item))
X      (void) DisposeItem((Menu*)menu, item);
X     Leave_void
X}
X
X/* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ */
X
X/*ARGSUSED*/
Xvoid RTLMenu_Box( menu )
XRTLMenu menu;
X{
X     /* Commented out */
X}
X
X/* ------------------------------------------------------------ */
X
X/*ARGSUSED*/
Xvoid RTLMenu_Enter( menu, butnum, buttime, base_window, pos )
XRTLMenu menu;
Xint butnum;
XTime buttime;
XWindow base_window;
XRTLPoint pos;
X{
X     MenuItem *selected;
X
X     Entry("RTLMenu_Enter")
X
X     menu_pos = pos;
X     selected = TrackMenu ((Menu*) menu, menu_pos.x, menu_pos.y,
X               butnum, base_window, buttime);
X     if (!ItemIsNull(selected))
X      (ItemCallback(selected)) (menu, selected, base_window);
X     Leave_void
X}
X/* ------------------------------------------------------------ */
X
XRTLPoint RTLMenu_Entry_Pos()
X{
X     Entry("RTLMenu_Entry_Pos")
X     /* menu_pos is a global static that gets set by the call to */
X     /* XQueryPointer that is used by the TrackMenu call.        */
X
X     Leave(menu_pos)
X}
X
X
Xvoid RTLMenu_Generate_Items(menu, proc)
X/* apply VoidFunc proc to each item in the menu, with       */
X/* arguments menu and menuItem                              */
XRTLMenu menu;
XVoidFunc proc;
X{
X     MenuItem *item;
X
X     Entry("RTLMenu_Generate_Items")
X
X     for (item = MenuItems((Menu*)menu);
X      !ItemIsNull(item); item = ItemNext(item))
X     {
X      (proc)((RTLMenu)menu, (RTLMenuItem)item);
X     }
X     Leave_void
X}
END_OF_FILE
if test 9335 -ne `wc -c <'menus/rtlmenu.c'`; then
    echo shar: \"'menus/rtlmenu.c'\" unpacked with wrong size!
fi
# end of 'menus/rtlmenu.c'
fi
echo shar: End of archive 7 \(of 12\).
cp /dev/null ark7isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 12 archives.
    rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0
--
Mike Wexler(wyse!mikew)    Phone: [phone] x1330
Moderator of comp.sources.x